home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / message / subcls / getminmx.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-06-13  |  1.1 KB  |  40 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Limit Window Size Demo"
  4.    ClientHeight    =   3165
  5.    ClientLeft      =   1350
  6.    ClientTop       =   1770
  7.    ClientWidth     =   4740
  8.    Height          =   3570
  9.    Left            =   1290
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3165
  12.    ScaleWidth      =   4740
  13.    Top             =   1425
  14.    Width           =   4860
  15.    Begin MsgHook MsgHook 
  16.       Left            =   120
  17.       Top             =   120
  18.    End
  19. Option Explicit
  20. Sub Form_Load ()
  21.    ' Setup MsgHook
  22.    MsgHook.HwndHook = Me.hWnd
  23.    MsgHook.Message(WM_GETMINMAXINFO) = True
  24. End Sub
  25. Sub MsgHook_Message (msg As Integer, wParam As Integer, lParam As Long, result As Long)
  26.     Dim MinMax As MINMAXINFO
  27.     If msg = WM_GETMINMAXINFO Then
  28.     ' Copy to our local MinMax variable
  29.     hmemcpy MinMax, ByVal lParam, Len(MinMax)
  30.     ' Set minimum/maximum tracking size
  31.     MinMax.ptMinTrackSize.x = 150
  32.     MinMax.ptMinTrackSize.y = 150
  33.     MinMax.ptMaxTrackSize.x = 400
  34.     MinMax.ptMaxTrackSize.y = 400
  35.     ' Copy data back to Windows
  36.     hmemcpy ByVal lParam, MinMax, Len(MinMax)
  37.     result = 0
  38.     End If
  39. End Sub
  40.